0 PRINT""CHR$(142):REM LOCK INTO UPPERCASE
1 CLR:POKE53280,0:POKE53281,6:POKE788,52
2 GOSUB 8000
3 GOSUB 9000
8 GOTO1000
20 QQ=0:PRINTTAB(8)"IS THIS CORRECT? (Y/N)[159]"
22 GETA$
24 IFA$="[206]"ORA$="N"THENQQ=1:RETURN
25 IFA$="[217]"ORA$="Y"THENRETURN
26 GOTO22
30 PRINT"[147]"SPC(10)"H O M E   S A L E"
32 PRINT"[155]ROUND ALL AMOUNTS TO THE NEAREST DOLLAR."
33 PRINT"[145]     PRESS RETURN IF AMOUNT IS ZERO."
34 PRINT"      PRESS Q AT ANY TIME TO QUIT"
36 RETURN
40 K$="":TE=PEEK(646):PRINT" - [158]";:POKE198,0.
41 PRINT" [157][146]";:FORT=1TO50:NEXT:PRINT" [157][158]";
42 GETA$:IFA$=""THEN41
43 IFA$="Q"THEN10000
44 IFA$=CHR$(13)THENPRINT:POKE646,TE:RETURN
45 IFA$=CHR$(20)ANDLEN(K$)THENPRINT"[157] [157]";:K$=LEFT$(K$,LEN(K$)-1):GOTO41
46 IFLEN(K$)>6THEN41
47 IFA$<"0"ORA$>"9"THEN41
48 PRINTA$;:K$=K$+A$
49 GOTO41
300 REM**MENU PAGE 3
310 PRINT"[147]":PRINTTAB(3)"[158]CALCULATING GAIN ON SALE OF A HOME[146]"
315 PRINT"[159]SALE & PURCHASE OF PRINCIPAL RESIDENCE"
340 PRINTTAB(9):PRINT"[152](MENU: SCREEN 3 OF 3)"
350 PRINT"[158]7. GAIN POSTPONED & NEW HOME BASIS"
355 PRINT"Q. TO QUIT AND EXIT TO LOADSTAR"
380 PRINT"[155](NOTE: ROUND ALL AMOUNTS TO THE NEAREST DOLLAR)"
390 GET A$:IFA$<>"7" AND A$<>"Q" THEN GOTO 390
391 IF A$="7" THEN GOTO 7000
395 IF A$="Q" THEN GOTO 10000
1000 GOSUB30:PRINTTAB(7)"[158]PURCHASE PRICE OF OLD HOME[146][154]"
1040 PRINT"PRICE PAID FOR HOUSE (PRESS RETURN IF"
1050 PRINT"HOUSE IS A GIFT)";:GOSUB40:AA$=K$
1060 AA=VAL(AA$)
1070 PRINT"TRANSFER TAX PAID";
1080 GOSUB40:AB$=K$
1090 AB=VAL(AB$)
1100 PRINT"ATTORNEY'S FEES PAID";
1110 GOSUB40:AC$=K$
1120 AC=VAL(AC$)
1130 PRINTTAB(7)"PURCHASE PRICE=[146] $";AA+AB+AC
1140 AZ=AA+AB+AC
1150 GOSUB20:IFQQTHEN1000
2000 GOSUB30:PRINTTAB(11)"[158]BASIS ON OLD HOME[146][154]"
2010 PRINT"[154]SELECT BASIS CATEGORY (1, 2, [154]OR 3[154])"
2020 PRINT"1. [159]HOME WAS PURCHASED"
2025 PRINT"2. [159]HOME WAS A GIFT"
2030 PRINT"3. [159]HOME WAS INHERITED[154]"
2040 GETA$:IFA$<"1"ORA$>"3"THEN2040
2045 IFA$="1"THEN3000
2050 IFA$<>"2"THEN2110
2060 PRINT"ENTER THE LESSER OF EITHER THE"
2070 PRINT"FAIR MARKET VALUE OR THE DONOR'S"
2080 PRINT"ADJUSTED BASIS AT TIME OF"
2085 PRINT"ACQUISITION";:GOSUB40:BZ$=K$:BZ=VAL(K$)
2090 PRINTTAB(7)"BASIS ON OLD HOME[146] = $";BZ
2091 GOSUB20:IFQQTHEN2000
2095 GOTO3000
2110 PRINT"[154]INHERITANCE BASIS (FAIR MARKET"
2120 PRINT"VALUE)";:GOSUB40:BB$=K$:BZ=VAL(BB$)
2130 PRINTTAB(7)"BASIS ON OLD HOME[146] = $";BZ
2140 GOSUB20:IFQQTHEN2000
3000 GOSUB30:PRINTTAB(7)"[158]ADJUSTED BASIS OF OLD HOME[146][154]"
3040 PRINT"COST OF IMPROVEMENTS MADE (IF COVERED"
3050 PRINT"ELSEWHERE, PRESS RETURN)";:GOSUB40:CA$=K$:CA=VAL(CA$)
3080 PRINT"COST OF FURTHER ADDITIONS TO YOUR"
3081 PRINT"HOME";:GOSUB40:CB$=K$:CB=VAL(CB$)
3090 PRINT"COST OF ASSESSMENTS (FOR EXAMPLE,"
3100 PRINT"SIDEWALKS AND STREETS)";:GOSUB40:CC$=K$:CC=VAL(CC$)
3110 PRINT"IF HOUSE WAS A GIFT, ENTER ANY"
3120 PRINT"TRANSFER TAX PAID";:GOSUB40:CK$=K$:CK=VAL(CK$)
3130 PRINT"IF HOUSE WAS A GIFT ENTER ANY"
3140 PRINT"ATTORNEY'S FEES PAID";:GOSUB40:CL$=K$:CL=VAL(CL$)
3150 CD=CA+CB+CC+CK+CL
3160 GOSUB20:IFQQTHEN3000
3180 GOSUB30:PRINTTAB(7)"[158]ADJUSTED BASIS OF OLD HOME[146]"
3190 PRINT"[154]AMOUNT OF FIRE OR OTHER CASUALTY"
3195 PRINT"LOSSES";:GOSUB40:CE$=K$:CE=VAL(CE$)
3200 PRINT"PAYMENTS YOU RECEIVE FOR EASEMENTS OR"
3210 PRINT"RIGHTS-OF-WAY YOU GIVE UP";:GOSUB40:CF$=K$:CF=VAL(CF$)
3220 PRINT"AMOUNT OF DEPRECIATION ON HOME";:GOSUB40:CG$=K$:CG=VAL(CG$)
3230 PRINT"AMOUNT OF RESIDENTIAL ENERGY CREDIT"
3235 PRINT"CLAIMED";:GOSUB40:CH$=K$:CH=VAL(CH$)
3240 CI=CE+CF+CG+CH
3250 CJ=BZ+CD
3260 CZ=CJ-CI
3270 PRINTTAB(3)"[154]ADJUSTED BASIS OLD HOME = ";CZ
3280 GOSUB20:IFQQTHEN3180
4000 GOSUB30:PRINTTAB(12)"[158]COST OF NEW HOME[146][154]"
4040 PRINT"TRANSFER TAX PAID ON NEW HOME";:GOSUB40:DB$=K$:DB=VAL(DB$)
4050 PRINT"ATTORNEY'S FEES PAID";:GOSUB40:DC$=K$:DC=VAL(DC$)
4060 PRINT"PRICE PAID FOR HOUSE (INCLUDING"
4070 PRINT"CLOSING COSTS AND ANY DEBTS IT IS"
4080 PRINT"SUBJECT TO)";:GOSUB40:DA$=K$:DA=VAL(DA$)
4090 DZ=DA+DB+DC
4100 PRINT"COST OF NEW HOME=[146] $";DZ
4110 GOSUB20:IFQQTHEN4000
5000 GOSUB30:PRINTTAB(12)"[158]SELLING EXPENSES[146][154]"
5040 PRINT"COMMISSIONS PAID";:GOSUB40:EA$=K$:EA=VAL(EA$)
5050 PRINT"ADVERTISING COSTS PAID";:GOSUB40:EB$=K$:EB=VAL(EB$)
5060 PRINT"PLACEMENT FEES OR 'POINTS' PAID";:GOSUB40:EC$=K$:EC=VAL(EC$)
5070 PRINT"LEGAL FEES PAID";:GOSUB40:ED$=K$:ED=VAL(ED$)
5080 PRINT"TRANSFER TAX ON SALE OF OLD HOME";:GOSUB40:EE$=K$:EE=VAL(EE$)
5090 PRINT"SUM OF OTHER CLOSING COST ITEMS";:GOSUB40:EF$=K$:EF=VAL(EF$)
5100 EZ=EA+EB+EC+ED+EE+EF
5110 PRINT"SELLING EXPENSES=[146] $";EZ
5120 GOSUB20:IFQQTHEN5000
6000 GOSUB30:PRINTTAB(11)"[158]FIXING UP EXPENSES[146]"
6010 PRINT"[154]ENTER ALL EXPENSES FOR WORK DONE"
6020 PRINT"WITHIN 90[154] DAYS BEFORE SIGNING CONTRACT"
6030 PRINT"TO SELL, AND PAID FOR WITHIN 30[154] DAYS"
6040 PRINT"AFTER THE SALE. (THESE ITEMS CANNOT BE"
6050 PRINT"CAPITAL IMPROVEMENTS; THESE ONLY ADD"
6060 PRINT"TO YOUR BASIS ON THE HOME.)"
6070 PRINT"PRESS RETURN WHEN FINISHED[154]"
6080 FORI=1TO10
6090 PRINT"COST OF ITEM"I;:GOSUB40:F$(I)=K$
6100 IFF$(I)=""THENI=10
6110 NEXT
6220 FZ=0:FORI=1TO9:FZ=FZ+VAL(F$(I)):NEXT
6230 PRINT"FIXING UP EXPENSES=[146] $";FZ
6240 GOSUB20:IFQQTHEN6000
7000 GOSUB30
7010 PRINTTAB(6)"[158]GAIN ON SALE OF OLD HOME AND"
7011 PRINTTAB(11)"BASIS OF NEW HOME[146][144]"
7015 PRINT"[154]SELLING PRICE OF OLD HOME";
7016 GOSUB40:GA$=K$:GA=VAL(GA$)
7018 PRINT"[147]":PRINTTAB(10)"[158]GAIN ON SALE OF HOMES[146][154]"
7020 PRINT"SELLING EXPENSES...........$";EZ
7023 GB=GA-EZ
7025 PRINT"AMOUNT REALIZED............$";GB
7030 PRINT"BASIS OF OLD HOME..........$";BZ
7035 PRINT"ADJUSTED BASIS"
7036 PRINT"OF OLD HOME................$";CZ
7040 GC=GB-CZ
7041 PRINT"[155]GAIN ON OLD HOME...........$";GC
7045 GD=CZ+GC
7046 PRINT"AMOUNT REALIZED"
7047 PRINT"ON OLD HOME................$";GD
7048 PRINTTAB(8)"PRESS SPACE TO CONTINUE"
7049 GETA$:IFA$<>" "THEN7049
7050 PRINT"[147]":PRINTTAB(10)"[158]GAIN ON SALE OF HOMES[146]"
7051 PRINT"[154]FIXING UP"
7052 PRINT"EXPENSES...................$";FZ
7053 GE=GD-FZ
7054 PRINT"ADJUSTED SALES PRICE.......$";GE
7060 PRINT"COST OF NEW HOME...........$";DZ
7065 GF=GE-DZ
7066 PRINT"GAIN NOT POSTPONED.........$";GF
7070 GG=GC-GF
7071 PRINT"GAIN POSTPONED.............$";GG
7080 GH=DZ-GG
7081 PRINT"[154]COST OF NEW HOME...........$";DZ
7082 PRINT"MINUS GAIN POSTPONED.......$";GG
7085 PRINT"= BASIS OF NEW HOME = ....$";GH
7090 PRINTTAB(8)"PRESS SPACE TO CONTINUE"
7091 GETA$:IFA$<>" "THEN7091
7100 PRINT"[147]":PRINT"DO YOU WANT A PRINTED COPY [158](Y/N)[154]?"
7110 GOSUB22:IFQQ=0THEN11000
7120 PRINT"[147]  [158]PRESS H[158] TO RETURN TO HOME SALE OR"
7130 PRINT"   PRESS L[158] TO RETURN TO LOADSTAR"
7135 PRINTTAB(12)"*** WARNING: [146]***"
7136 PRINT"[152]RETURNING TO HOME SALE WILL RESULT IN"
7137 PRINTTAB(12)"LOSS OF ALL DATA"
7138 POKE198,0
7140 GETA$:IFA$<>"H"ANDA$<>"L"THEN7140
7150 IFA$="H"THENRUN
7160 PRINTTAB(9)"[158]RETURNING TO LOADSTAR"
7165 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15:PRINT""
7166 IFER<>63 THEN PRINT"[147]":END
7170 LOAD "HELLO CONNECT",8:END
8000 PRINT"[147]"
8030 POKE53280,6:POKE53281,0:PRINT"[147][150] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
8040 [153]"DEF PEEK(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$DEFPEEK
8050 PRINT" [194][194]         LOADSTAR PRESENTS        [194][150][194]
8060 [153]" PEEKPEEK                                  PEEKDEFPEEK
8070 PRINT" [194][194]     HOME SALE TAX COMPUTATION    [194][150][194]
8080 [153]" PEEKPEEK                                  PEEKDEFPEEK
8090 PRINT" [194][194]                BY                [194][150][194]
8100 [153]" PEEKPEEK                                  PEEKDEFPEEK
8110 PRINT" [194][194]    [158]     ARNOLD J. STEINER        [194][150][194]
8120 [153]" PEEKPEEK                                  PEEKDEFPEEK
8130 PRINT" [194][194]        [159]  COPYRIGHT  1987         [194][150][194]"
8140 PRINT" [194][194]                                  [194][150][194]
8150 [153]" PEEKPEEK                                  PEEKDEFPEEK
8160 PRINT" [194][194]                                  [194][150][194]
8170 [153]" PEEKPEEK  LOADSTAR IS NOT PUBLIC DOMAIN.  PEEKDEFPEEK
8180 PRINT" [194][194]                                  [194][150][194]
8190 [153]" PEEKPEEKOPEN  PLEASE RESPECT AUTHOR'S RIGHTS. PEEKDEFPEEK
8200 PRINT" [194][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][150][194]
8210 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
8220 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
8230 [153]" PEEK                                    PEEK
8240 PRINT" [194]           PRESS ANY KEY[150]            [194]
8250 [153]" PEEK                                    PEEK
8260 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
8290 [151]198,0
8300 [161]A$:[139]A$[178]""[167]8300
8340 [142]
9000 [153]"LOAD"
9030 [151]53280,6:[151]53281,0:[153]"LOADDEF (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
9040 PRINT"[150] [194][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][150][194]
9050 [153]" PEEKPEEKTHE FOLLOWING PROGRAM IS BASED ON PEEKDEFPEEK
9060 PRINT" [194][194] THE INFORMATION AND COMPUTATION  [194][150][194]
9070 [153]" PEEKPEEK   PROCEDURES DESCRIBED IN THE    PEEKDEFPEEK
9080 PRINT" [194][194]  'IRS' PUBLICATION NUMBER 523    [194][150][194]
9090 [153]" PEEKPEEK                                  PEEKDEFPEEK
9100 PRINT" [194][194]                                  [194][150][194]
9110 [153]" PEEKPEEK    SYSTAX INFORMATION ON SELLING    PEEKDEFPEEK
9120 PRINT" [194][194]             [158]YOUR HOME            [194][150][194]
9130 [153]" PEEKPEEK                                  PEEKDEFPEEK"
9140 [153]" PEEKPEEK  OPENFOR FURTHER INFORMATION PLEASE  PEEKDEFPEEK
9150 PRINT" [194][194]     [159]REFER TO THIS PUBLICATION    [194][150][194]
9160 [153]" PEEKPEEK                                  PEEKDEFPEEK
9170 PRINT" [194][194]                                  [194][150][194]
9180 [153]" PEEKPEEK      OPENNOTE: ENTER ALL AMOUNTS     PEEKDEFPEEK
9190 PRINT" [194][194] [159]  ROUNDED TO THE NEAREST DOLLAR  [194][150][194]
9200 [153]" PEEKMID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)DEFPEEK
9210 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
9220 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
9230 PRINT" [194]                                    [194]
9240 [153]" PEEK           PRESS ANY KEYDEF            PEEK
9250 PRINT" [194]                                    [194]
9260 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
9290 POKE198,0
9300 GETA$:IFA$=""THEN9300
9340 RETURN
10000 M1=PEEK(209):M2=PEEK(210):M3=PEEK(211)
10005 PRINT:PRINT"ARE YOU SURE YOU WANT TO EXIT ([158]Y[154]/[158]N[154])?"
10006 GET EX$:IF EX$<>"Y" AND EX$<>"N" THEN 10006
10007 IFEX$="N"THENPRINT"[145]                                     [145][145][145]"
10008 IFEX$="N"THENPOKE209,M1:POKE210,M2:POKE211,M3:GOTO41
10010 PRINT"[147]":PRINTTAB(9)"[158]RETURNING TO LOADSTAR[144]"
10020 GOTO7165
11000 REM***PRINTOUT OF DATA ON SALE OF PRINCIPAL RESIDENCE
11005 PRINT"[147]":PRINTTAB(8)"[158]TURN YOUR PRINTER ON NOW!"
11006 PRINT"PRESS SPACE WHEN READY TO CONTINUE"
11007 GETA$:IFA$<>" "THEN11007
11008 OPEN15,4,15:CLOSE15:IFST<>0 THEN GOTO 20000
11010 OPEN1,4:PRINT"[147]---------- PRINTING - WAIT -------------"
11011 OPEN2,4
11012 OPEN3,4
11014 OPEN4,4
11015 OPEN5,4
11016 OPEN6,4
11020 RO$="RESIDENCE SOLD:  "
11021 RN$="RESIDENCE PURCHASED:  "
11025 TL$="GAIN ON SALE OF PRINCIPAL RESIDENCE & BASIS OF NEW HOME[146]"
11030 AS$="1.  SELLING PRICE OF OLD HOME..............................."
11040 BS$="2.  (MINUS) SELLING EXPENSES................................"
11050 AL$="3.  AMOUNT REALIZED........................................."
11060 CS$="4.  BASIS OF OLD HOME......................................."
11070 BL$="5.  ADJUSTED BASIS OF OLD HOME.............................."
11080 CL$="6.  GAIN ON OLD HOME (3 MINUS 5)............................"
11090 DS$="7.  AMOUNT REALIZED ON OLD HOME (5+6)......................."
11100 ES$="8.  FIXING UP EXPENSES......................................"
11110 DL$="9.  ADJUSTED SALES PRICE (7 MINUS 8)........................"
11120 EL$="10.  COST OF NEW HOME......................................."
11130 FL$="11.  GAIN NOT POSTPONED[146] (9 MINUS 10)......................"
11140 GL$="12.  GAIN POSTPONED[146]......................................."
11150 HL$="13.  COST OF NEW HOME......................................."
11160 IL$="14.  (MINUS) GAIN POSTPONED................................."
11170 JL$="15.  BASIS OF NEW HOME[146]...................................."
11173 REM    PRINT#3,RO$
11174 REM    PRINT#3,RN$;N$
11175 PRINT#3,TL$
11177 PRINT#3,AS$;GA
11178 PRINT#3,BS$;EZ
11180 PRINT#3,AL$;GB
11182 PRINT#3,CS$;BZ
11184 PRINT#3,BL$;CZ
11185 PRINT#3,CL$;GC
11187 PRINT#3,DS$;GD
11188 PRINT#3,ES$;FZ
11190 PRINT#3,DL$;GE
11191 LO$=""
11193 PRINT#3,EL$;DZ
11194 PRINT#3,FL$;GF
11195 PRINT#3,GL$;GG
11196 PRINT#3,HL$;DZ
11197 PRINT#3,IL$;GG
11198 PRINT#3,JL$;GH
11200 TA$="SOME DATA USED TO DERIVE ABOVE AMOUNTS[146]"
11205 T1$="PRICE PAID FOR OLD HOME............................................."
11207 T2$="TOTAL PURCHASE PRICE OF OLD HOME...................................."
11210 T3$="TRANSFER TAX PAID ON PURCHASE OF OLD HOME..........................."
11220 T4$="TRANSFER TAX PAID ON SALE OF OLD HOME..............................."
11225 T5$="TRANSFER TAX PAID ON PURCHASE OF NEW HOME..........................."
11230 T6$="ATTORNEY'S FEES PAID ON PURCHASE OF OLD HOME........................"
11233 T7$="ATTORNEY'S FEES PAID WHEN HOME AS A GIFT............................"
11235 T8$="ATTORNEY'S FEES PAID ON SALE OF OLD HOME............................"
11240 T9$="ATTORNEY'S FEES PAID ON PURCHASE OF NEW HOME........................"
11250 U1$="IMPROVEMENTS MADE ON OLD HOME......................................."
11260 U2$="FIRE OR OTHER CASUALTY LOSSES......................................."
11270 U3$="DEPRECIATION ON OLD HOME............................................"
11280 U4$="RESIDENTIAL ENERGY CREDIT CLAIMED..................................."
11290 U5$="COMMISSIONS PAID ON SALE OF OLD HOME................................"
11300 U6$="ASSESSMENTS/DEBTS PAID ON ACQUIRING OF OLD HOME....................."
11320 PRINT#3,TA$
11330 PRINT#3,T1$;AA
11335 PRINT#3,T2$;AZ
11340 PRINT#3,T3$;AB
11345 PRINT#3,T4$;EE
11350 PRINT#3,T5$;DB
11355 PRINT#3,T6$;AC
11360 PRINT#3,T7$;CL
11365 PRINT#3,T8$;ED
11370 PRINT#3,T9$;DC
11375 PRINT#3,U1$;CA
11380 PRINT#3,U2$;CE
11385 PRINT#3,U3$;CG
11390 PRINT#3,U4$;CH
11392 PRINT#3,U5$;EA
11394 PRINT#3,U6$;CC:PRINT"[147]"
11400 CLOSE1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:CLOSE6:GOTO 7120
20000 PRINT"[147]PRINTER NOT DETECTED!!!"
20001 PRINT"PRESS SPACE WHEN READY TO CONTINUE."
20002 GETA$:IFA$<>" "THEN20002
20005 GOTO 7100